www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_select_a_label.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="css.css" type=text/css rel=stylesheet>
<%
dir_set="../"
%>
<!--#include file=../inc/conn.asp-->
<!--#include file=../inc/Functionb.asp-->
<!--#include file=inc/checkadmin1.asp-->
<!--#include file=../inc/ajaxLIB.asp-->
<!--#include file=../inc/functionFiless.asp-->
<!--#include file=../inc/ND_class_function.asp-->
<%
AJAXshowLoader()
Application.Lock()
Application("newdsoft_web_user_mdb_using")="no"
Application("newdsoft_web_user_mdb_when_using")=now()
Application.UnLock()
%>
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1;word-break:break-all;border: 1px dashed #999999;left: 3px; top: 10px; height: 50px;width:730px">
<table border="0" cellpadding="0" cellspacing="0" >
<tr>
<td>
<form action="D_select_a_label.asp?do=1" method="post">
请输入要查找的标签的名称:{$$<input type="text" value="<%=request("data1")%>" name="data1" />}
<input type="submit" value="查找" />
</form>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" >
<tr>
<td>
<form action="D_select_a_label.asp?do=1" method="post">
请输入标签代码内容关键字以查找标签:<input type="text" value="<%=request("data2")%>" name="data2" size="30" />
<input type="submit" value="查找" />
</form>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" >
<tr>
<td>
<form action="D_select_a_label.asp?do=1" method="post">
请输入标签的部分功能说明以查找标签: 功能说明含:<input type="text" value="<%=request("data3")%>" name="data3" size="13" />
,并且功能说明含(此项可选):<input type="text" value="<%=request("data4")%>" name="data4" size="13" />
<input type="submit" value="查找" />
</form>
</td>
</tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" style="word-break:break-all" >
<%
nooo=0
CurrentPage=replacebadchar(request("page"))
if CurrentPage="" then
CurrentPage=1
else if not IsNumeric(CurrentPage) then
CurrentPage=1
else if int(CurrentPage)<=0 then
CurrentPage=1
else
CurrentPage=replaceBadchar(request("page"))
end if
end if
end if
if instr(1,request("data1"),"(",1)<>0 then
kkky=trim(left(request("data1"),instr(1,request("data1"),"(",1)-1))
else
kkky=trim(request("data1"))
end if
kkky=replace(kkky,"}","")
kkky2=trim(request("data2"))
if instr(1,kkky2,"'",1)<>0 then
%>
<script language=javascript>
alert("关键字不能含'号")
</script>
<%
response.end
end if
if kkky2<>"" then
sql="select * from [ND_label_cache] where label_code like '%"&kkky2&"%' or label_sql like '%"&kkky2&"%' or label_other_params like '%"&kkky2&"%' or label_params like '%"&kkky2&"%' order by id asc"
else
sql="select * from [ND_label_cache] where label_name like '%"&kkky&"%' order by id asc"
end if
if trim(request("data3"))<>"" or trim(request("data4"))<>"" then
sql="select * from [ND_label_cache] where 1=1 "
if trim(request("data3"))<>"" then sql=sql&" and label_beizhu like '%"&trim(request("data3"))&"%' "
if trim(request("data4"))<>"" then sql=sql&" and label_beizhu like '%"&trim(request("data4"))&"%' "
sql=sql&" order by id asc"
end if
maxperpage=8
'获取自身文件名
aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/")
fileNamexx = aryxx(ubound(aryxx))
strFileName=fileNamexx&"?do=1&data1="&trim(request("data1"))&"&data2="&trim(request("data2"))&"&data3="&trim(request("data3"))&"&data4="&trim(request("data4"))
set Rs=server.CreateObject("adodb.recordset")
Rs.open sql,conn,1,1
if not Rs.eof then
Rs.pagesize=MaxPerpage
totalnumber=Rs.recordcount
if totalnumber mod maxperpage=0 then
MaxPage= totalnumber \ MaxPerpage
else
MaxPage= totalnumber \ MaxPerpage+1
end if
if int(CurrentPage)>int(MaxPage) then
CurrentPage=MaxPage
else
CurrentPage=CurrentPage
end if
Rs.absolutepage=CurrentPage
for ni=1 to maxperpage
%>
<%
if rs.eof then exit for
sssps=split(rs("label_full_path_name"),"/")
ssspsss1=ubound(sssps)
sssaa=""
for iii=2 to ssspsss1
sssaa=sssaa&sssps(iii)&"/"
next
dddd=loadfile("../Label/custom_Label/"&sssaa)
call get_info_array_from_label_file_content(dddd)
nd1_label_params=replace(nd1_label_params,"'","‘")
nd1_l_name=replace(nd1_l_name,"'","‘")
%>
<tr>
<td style="word-break:break-all" width=250>
<a title="标签所在路径：/<%=rs("label_full_path_name")%>" href="javascript:" onclick="inst('<%=sssaa%>','<%=nd1_label_params%>','<%=nd1_l_name%>');"> 标签：<font color=#0000ff>{$$<%=rs("label_name")%>}</font></a>
<%
%>
<br>
标签说明:<%=left(nd1_label_beizhu,400)%>..
<%
set Rs222=server.CreateObject("adodb.recordset")
Rs222.open "select * from [ND_label_cache] where label_name='"&rs("label_name")&"'",conn,1,1
if rs222.recordcount>1 and rs("label_name")<>"" then
%>
<font color="#FF0000"><strong>(error:存在重名标签)</strong></font>
<%end if%>
</td>
<td style="word-break:break-all" width=100>
<a title="标签所在路径：/<%=rs("label_full_path_name")%>" href="javascript:" onclick="inst('<%=sssaa%>','<%=nd1_label_params%>','<%=nd1_l_name%>');">
<font color=#0000ff>插入此标签到模板(或其他地方)</font>
</a>
</td>
</tr>
<%
rs.movenext
next
%>
<%
else
nooo=1
%>
<tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>未找到……</strong></font></td></tr>
<%end if
Rs.close
set Rs=nothing
%>
<tr>
<td colspan="7" align="center" height="27" ><%if nooo=0 then call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
</tr>
</table>
</div>
<div id="l_ffff" style="filter:blendTrans(duration=1);display:none; width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 10px; height: 50px;width:730px">
<br>
<div id="l_do" style="filter:blendTrans(duration=1); width:700px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 20px; height: 10px;">
<table width=100% border=0 cellpadding="0" cellspacing="0" >
<tr><td bgcolor=#cccccc>
<font color=#ff0000>生成常用的标签参数值:
(如 分类id值,
页面文件名值,
频道id值等)
</font>
</td></tr>
<tr><td bgcolor=#bbbbbb>
<input type=button onclick="aaaar('D_select_a_label_f_pindao_id.asp')" value="获取某个频道的id值">
<input type=button onclick="aaaar('D_select_a_label_f_fenlei_id.asp')" value="获取某个内容分类的id值">
<input type=button onclick="alert('请到 模板管理 或 标签管理 中的 查看引用各模板网页的文件名所用的标签 里查看此引用 用的代码');" value="获取用于引用 某个页面的文件名值的 代码"> <br>
<input type=button onclick="aaaarx('D_select_a_label_f_requst.asp')" value="获取用于引用 某个表单中或url网址中提交过来的request()变量的值的 代码"> <br>
<input type=button onclick="aaaarx('D_select_a_label_f_avar.asp')" value="获取用于引用 asp代码里某个asp变量的值的 代码"> <br>
<input type=button onclick="aaaar('D_select_a_label_f_zhunti_id.asp')" value="获取某个内容专题的id值">
</td></tr>
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<script language= JavaScript>
function aaaarx(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbars=no, scrollbars=yes,top=20,left=10,Width=800, Height=300');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
</td></tr>
</table>
</div>
<br><br>
<font color=#0000ff style="font-size:15px">开始生成一个标签:<br></font>
<table width=730 id="parms" name="parms" cellpadding="0" cellspacing="0" border="1">
<tr><td colspan="3" id="nameeee">temp</td></tr>
</table>
<br>
<font color=#ff0000 style="font-size:14px">给 某个标签参数设置具体值时要注意引号的使用，如果给某个标签参数设置具体值为 article_id35 后编译运行出错或出现异常(比如调不出内容,总显示为空)，此时把这个标签参数具体值设置为"article_id35"看看，即加个引号,或者如果因为有引号而编译运行出错，则去掉引号再编译运行看看
<br>
dreamweaver里编辑一个模板等时，如果在设计模式下而不是在代码模式下输入了 "号 到标签参数里或复制某个含"号的标签过来，会出错，因为 "号会被自动转为& quot;再放到代码里，所以要在代码模式下输入"号才行，不然出错
</font>
<br><br>
<table width=700 align=center cellpadding="0" cellspacing="0" bgcolor=#cccccc >
<tr><td>
生成的标签为: (你可以拷贝以下生成的内容到模板或其他地方里来插入此标签)<br>
<textarea name="scdbq" id="scdbq" rows=6 cols=97></textarea>
<br>
<input type=button onclick="cpp('scdbq')" value="复制此最终生成的标签到模板代码里(或其他地方)">
<input type=button value="返回上一步" onclick="bvvbb()">
<br>
</td></tr>
</table>
<input type="hidden" name="params_len" id="params_len" value="0" />
</div>
<script language="javascript">
var org_pos=1;
var now_pos=org_pos;
document.getElementById("params_len").value="0";
function add_p(aa,bb,cc){
var theTable = document.getElementById("parms");
var rowNumber = parseFloat(theTable.rows.length);
theTable.insertRow(rowNumber);
theTable.rows[rowNumber].id="aaaaba"+now_pos;
//alert(theTable.rows[rowNumber].id);
var ssssw;
if ((now_pos%2)==0){ssssw="#ccccbb";}else{ssssw="#ccccee";}
theTable.rows[rowNumber].insertCell(0);
// theTable.rows[rowNumber].cells[0].innerHTML = "<td bgcolor='"+ssssw+"'>标签参数名"+now_pos+":<input name=c"+now_pos+" type=text value='"+aa+"'>,标签参数"+now_pos+"说明:<input name=s"+now_pos+" type=text value='"+bb+"'></td>";
theTable.rows[rowNumber].cells[0].innerHTML = "<td bgcolor='"+ssssw+"'>标签参数名"+now_pos+":'"+aa+"' </td>";
// theTable.rows[rowNumber].cells[0].bgcolor=ssssw;
theTable.rows[rowNumber].insertCell(1);
theTable.rows[rowNumber].cells[1].innerHTML ="<td bgcolor='"+ssssw+"'><font color=#0000ff>标签参数"+now_pos+"说明:'"+bb+"'</font><br><font color=#ff0000>参数格式限制:</font><font color=#5533bb>"+cc+"</font></td>";
theTable.rows[rowNumber].insertCell(2);
theTable.rows[rowNumber].cells[2].innerHTML ="<td bgcolor='"+ssssw+"'>给 标签参数"+now_pos+" 设置具体值:<input name='vvvv"+now_pos+"' type=text value='请输入值' size=19 onchange='cged();' onkeyup='cged();'></td>";
var aa = document.getElementById("params_len");
aa.value=now_pos;
now_pos=now_pos+1;
}
function del_p(r){
if (confirm("确认删除?")==1){
var theTable = document.getElementById("parms");
var r1 = document.getElementById(r);
var llln=parseFloat(theTable.rows.length)-1
for(var ia=0;ia<=llln;ia++)
{
if (theTable.rows[ia].id==r){
theTable.deleteRow(ia);
break;
}
}
}
}
</script>
<script language=javascript>
var nzname;
function cged(){
var therr;
var aza=parseFloat(document.getElementById("params_len").value);
var sssaza=document.getElementById("scdbq");
var sxxxz;
if (aza==0){
sxxxz="{$$"+nzname+"}";
}
else
{
sxxxz="{$$"+nzname+"(";
for (var xxzx=1;xxzx<=aza;xxzx++){
therr = document.getElementById("vvvv"+xxzx).value;
sxxxz=sxxxz+therr;
if (xxzx!=aza)
{sxxxz=sxxxz+","}
else
{sxxxz=sxxxz+")}"}
}
}
sssaza.value=sxxxz;
}
function bvvbb(){
self.location.reload();
}
function inst(a,parames,namee){
AJAXfade(0,'l_list');
AJAXfade(1,'l_ffff');
nzname=namee;
var nameeeea = document.getElementById("nameeee");
nameeeea.innerHTML="<strong>标签名:<font color=#0000ff>{$$"+namee+"}</font></strong>";
if (parames!=""){
nameeeea.innerHTML=nameeeea.innerHTML+"<br><font color=#ff0000>请给该标签设置好以下各标签参数的值:</font>";
}
var pasx=parames.split("|");
var pasaa;
var pasbb;
var pascc;
if (parames!=""){
for (var ii=0;ii<=pasx.length-1;ii++)
{
pasaa=pasx[ii].split(",")[0];
pasbb=pasx[ii].split(",")[1];
try{
pascc=pasx[ii].split(",")[2];
}
catch(e){pascc="2"}
if(pascc=="1"){pascc="参数外需要加引号或参数值为形如$xx_request_asp$XXXX,$xx_var_asp$XXXX之类";}
if(pascc=="2"){pascc="参数外不需要加引号或可能参数值可以为形如$xx_request_asp$XXXX,$xx_var_asp$XXXX之类";}
if(pascc=="3"){pascc="参数要为不加双引号的纯数字";}
add_p(pasaa,pasbb,pascc);
}
}
cged();
}
</script>
<script language=javascript>
function cpp(iid){
var tty=document.getElementById(iid).value;
window.clipboardData.setData("Text",tty);
alert("复制成功，请右键粘贴到 模板代码里(或其他地方)");
window.close();
}
</script>
<script language=javascript>
AJAXfade(1,'l_list');
AJAXfade(1,'l_do');
AJAXfade(0,'l_ffff');
</script>
<%
AJAXcloseLoader()
%>